home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / LNOISE < prev    next >
Text File  |  1997-04-05  |  1KB  |  13 lines
  1. LNOISE:;arg p,d;a=time("s");getuser 1400660;if bittst(reverse(d2c(result,4)),15)=0 then exit
  2.   if p="###PANIC" then exit;getuser word("2225094 2227782",cv+1);hp=result;if p>hp|p<0|datatype(p,"n")=0 then exit
  3.   a.0=d2c(6)"s1ou‡†797¾’s0†7’†™i7";a.1=d2c(6)"‰¾";a.2=d2c(6)"«¾’†«¾’"d2c(6)"y‰”’†«¾”®«¾7r"
  4.   a.3="®6¾½¤80y9ohj;"d2c(12)";";a.4=d2c(13)":OJl•Š;;ø·";a.5=d2c(12)d2c(8)"¡¾½¼©w1µþð65™…®ð7"
  5.   a.6="54®©       †„7    08o  7pi"d2c(8)"‹­·¡";a.7="¾µ¤ˆP*o¡¤þ·ž7ue64s¼¢³ž”…G";a.8="DXc  ."d2c(11)"LJ. Š;o8"
  6.   a.9="n"d2c(12)"¡¾½#©ð™”¢’e";a.10="¾ž¼43…5"d2c(4)"i6yYth98h¤«‰yˆ)*Ou"d2c(7)"9i76y"
  7.   a.11=d2c(6)"¡¾½f«¾s1¼®®«¾5»·y9i-»«•s0098þ·žr·ž«¾†‰«¾‰”«¾¡";a.12="utg97‰•”‡97”•‹n1"d2c(2)"‰¾þ‰•"
  8.   a.13="T«¡¾þ®†Š™hgb¸–ºmnª­º vh,"d2c(13)"v­bvÇn";a.14=d2c(2)" c ‚Vƒ˜‚šxgedy";a.15="trd¡¤‹†w1ˆ¡µðµþðç        "d2c(4)"dd"
  9.   a.16=""d2c(4)"½þµð•n1"d2c(4)"þµð•”„";a.17="¤þ¡µðiy"d2c(6)""d2c(6)d2c(6)"‰™†"d2c(6)"ð";a.18=d2c(6)d2c(4)d2c(6)"uy"d2c(7)
  10.   address ("CNETREXX"p);do random(4,18);l=random(0,18);sendstring a.l;end
  11.   if d=1 then dropcarrier;do random(4,18);l=random(0,18);sendstring a.l;end
  12.   bufferflush;return
  13.